10 REM <CTRL-M>===============<CTRL-M>ADDRESS CHECKER<CTRL-M>BY BEAGLE BROS<CTRL-M>===============
20 DIM A(120),B(120): FOR A = 0 TO 120:A(A) = PEEK(A): NEXT : ONERR GOTO 100
30 TEXT : PRINT CHR$(21): HOME : GOTO 100
40 VTAB 23: HTAB 1: CALL -958: IF S <0 THEN S = S +65536
50 IF S >65448 THEN S = 65448
60 TEXT : VTAB 1: HTAB 1: FOR A = 0 TO 120:AD = S +A:B(A) = PEEK(AD): PRINT " <CTRL-H><CTRL-H><CTRL-H>"; SPC( (AD <100) +(AD <10));AD;":";: IF RF = 1 AND B(A) < >A(A) THEN FLASH
70 PRINT B(A);: NORMAL : PRINT SPC( (B(A) <10) +(B(A) <100));" ";: IF PEEK(36) >32 THEN CALL -868: PRINT
80 IF PEEK(37) <22 THEN NEXT
90 CALL -958: FOR A = 0 TO 120:A(A) = B(A): NEXT :RF = 1
100 VTAB 23: HTAB 1: CALL -958: POKE 34,22: PRINT "? R=RUN AT ";S;: HTAB 27: PRINT "C=COMMAND TEST A=ADDRESS CHANGE Q=QUIT";: VTAB 23: HTAB 1: GET A$
110 IF A$ = "Q" THEN HOME : TEXT : VTAB 23: END
115 IF A$ < >"A" THEN 130
120 VTAB 23: HTAB 1: CALL -958: PRINT : INPUT "ENTER NEW START ADDRESS (0-65446):";S$:N = VAL(S$): VTAB 23: HTAB 1: CALL -958:RF = (N = S): IF N < >S THEN TEXT : HOME